10 TB=22016
100 FORX=3TO255
200 Y=65536/X
300 POKETB+X,YAND255
400 POKETB+256+X,Y/256
500 NEXT
1000 POKETB+0,0:POKETB+256,0
2000 POKETB+1,255:POKETB+257,255
3000 POKETB+2,0:POKETB+258,128